jmp near start
mytext: db 'L',0x07,'a',0x07,'b',0x07,'e',0x07,'l',0x07,' ',0x07,'o',0x07,\
            'f',0x07,'f',0x07,'s',0x07,'e',0x07,'t',0x07,':',0x07
number: db 0,0,0,0,0

start: mov ax, 0x07c0
	mov ds, ax
	mov ax, 0xb800
	mov es, ax

	cld
	mov si, mytext
	mov di, 0
	mov cx, (number-mytext)/2
	rep movsw

	mov bx, number
	mov si, 10
	mov ax, number
	mov cx, 5
digit:
	xor dx, dx
	div si
	mov [bx],dl
	inc bx
	loop digit

	mov si, 4
	mov bx, number
show:
	mov ah, 0x07
	mov al, [bx+si]
	add al, 0x30
	mov [es:di], ax
	add  di, 2
	dec si
	jns show
	
	

infi:
	jmp infi

times 510-($-$$) db 0
	db 0x55, 0xaa
